home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 401_500 / DISK0432 / DISK0432.ZIP / CRW.CMD < prev    next >
OS/2 REXX Batch file  |  1985-12-16  |  572b  |  40 lines
  1. /#
  2. //
  3. RM
  4. %4H      %*%%
  5. *C COPY ROW OF DATA
  6. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  7. TE P=%\*U HERE
  8. TE T-1.\R=%
  9. TE U-2.\S=%
  10. %qGive Start Cell of Row>%L %\
  11. TE *U HERE
  12. TE T-1.\B=%
  13. TE U-2.\C=%
  14. %Give End Cell of Row>%L %\
  15. TE *U HERE
  16. TE T-1.\D=%
  17. TE U-2.\E=%
  18. %Give Bottom Left of Left Column>%L %\
  19. TE *U HERE
  20. TE T-1.\F=%
  21. TE U-2.\G=%
  22. L A1
  23. TE G-C+1.\H=%
  24. TE B+1.\I=%
  25. TE C+1.\J=%
  26. *CLOOP
  27. *C LOOP
  28. *COOP
  29. CR P#%BC:P#%DC P#%BE:P#%DE
  30. TE E+1.\E=%
  31. TE H-1.\H=%
  32. TE *F LOOP
  33. *C SHOULD BE DONE HERE. EXIT.
  34. L A1
  35. L P#%RS
  36. TE %=P
  37. RF
  38. /#
  39.  
  40.